home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Herois
/
Codigo.Cst
/
00201_Script_MM Missao Brilho
< prev
next >
Wrap
Text File
|
1999-03-19
|
2KB
|
54 lines
property spr, posIni, posFim, cronoIni, tempoTotal
property sprLinha, posIniLinha
property sprBranco
on beginSprite me
set spr = 17
set cronoIni = the timer
set tempoTotal = 600 * 60
set posIni = the locH of sprite spr
set posFim = 640
set sprLinha = 13
set posIniLinha = the locH of sprite sprLinha
set sprBranco = 120
end
on idleSprite me
set x = the locH of sprite spr
set nx = (the timer - cronoIni) * (posFim - posIni) / tempoTotal + posIni
if nx <> x then
global gMustUpdate
set gMustUpdate = true
set the locH of sprite spr = nx
set the locH of sprite sprLinha = nx - posIni + posIniLinha
if nx >= posFim then
updateStage
set the member of sprite 120 to member "BrancoExplosao"
set the rect of sprite 120 to rect(0,0,640,480)
set the foreColor of sprite 120 to (the backColor of member "FundoBranco") -- white
puppetSprite 120,true
set cronoIni = the timer
if the colorDepth > 80 then
set the ink of sprite 120 to 32
repeat while the timer - cronoIni < 80
set the blend of sprite sprBranco to (the timer - cronoIni)*100 /60
set the visibility of sprite sprBranco to true
updateStage
end repeat
set the blend of sprite sprBranco to 100
updateStage
else
repeat while the timer - cronoIni < 80
if random(2) = 1 then
set the visibility of sprite sprBranco to true
else
set the visibility of sprite sprBranco to false
end if
updateStage
end repeat
end if
-- Acaba de explodir e sai ...
quit
end if
end if
end